home *** CD-ROM | disk | FTP | other *** search
/ Aminet 24 / Aminet 24 (1998)(GTI - Schatztruhe)[!][Apr 1998].iso / Aminet / util / conv / Raw2Ent19.lha / Raw2Ent.ced < prev    next >
Text File  |  1996-12-26  |  1KB  |  70 lines
  1. /*
  2. ** Raw2Ent.ced
  3. **
  4. ** $VER: Raw2Ent.ced 1.01 (26.12.96)
  5. **
  6. ** This script implements Raw2Ent into CED
  7. **
  8. ** This script requires CygnusEd Professional v3.5 (or later)
  9. ** and Raw2Ent to run.
  10. **
  11. ** Copyright © 1996 Tamio Patrick Honma
  12. */
  13.  
  14. TempClip = "T:R2EClip"
  15. TempEnt  = "T:R2EEnt"
  16.  
  17. ADDRESS "rexx_ced"
  18. OPTIONS RESULTS
  19.  
  20. GETSTRING "TAG"            /* Get arguments for Raw2Ent */
  21. Args = RESULT
  22.  
  23. IF (POS("CHECK",UPPER(Args))~=0) THEN DO
  24.  
  25.     'BEG OF FILE'
  26.     MARK
  27.     'END OF FILE'
  28.     COPY
  29.  
  30.     SAVE CLIP AS TempClip
  31.  
  32.     ADDRESS
  33.     OPTIONS FAILAT 1000000
  34.     ADDRESS COMMAND "Raw2Ent" TempClip "CHECK RETBYTE"
  35.     retbyte = RC
  36.     ADDRESS "rexx_ced" 'JUMP TO BYTE' retbyte
  37.  
  38. END
  39. ELSE DO
  40.  
  41.     CUT
  42.     IF (RESULT = 0) THEN DO
  43.         OKAY2 "No block selected! Should I mark the file instead?"
  44.         IF (RESULT=1) THEN DO
  45.             'BEG OF FILE'
  46.             MARK
  47.             'END OF FILE'
  48.             CUT
  49.         END
  50.         ELSE DO
  51.             CEDTOFRONT
  52.             OKAY1 "Can't create entities for block.  No block was marked."
  53.             EXIT 5
  54.         END
  55.     END
  56.  
  57.     SAVE CLIP AS TempClip
  58.  
  59.     ADDRESS COMMAND "Raw2Ent" TempClip TempEnt Args
  60.  
  61.     ADDRESS "rexx_ced" INCLUDE FILE TempEnt
  62.  
  63.     /* wait for finished activity */
  64.     STATUS RESTNAME
  65.  
  66.     ADDRESS COMMAND "Delete >NIL:" TempEnt
  67. END
  68. ADDRESS COMMAND "Delete >NIL:" TempClip
  69. EXIT 0
  70.